home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / rpc / auth.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  1.3 KB  |  51 lines
  1. sub MAX_AUTH_BYTES {400;}
  2. sub MAXNETNAMELEN {255;}
  3. if (( &mc68000 ||  &sparc ||  &vax ||  &i386)) {
  4. }
  5. sub AUTH_NEXTVERF {
  6.     local($auth) = @_;
  7.     eval "((*(($auth)-> &ah_ops-> &ah_nextverf))($auth))";
  8. }
  9. sub auth_nextverf {
  10.     local($auth) = @_;
  11.     eval "((*(($auth)-> &ah_ops-> &ah_nextverf))($auth))";
  12. }
  13. sub AUTH_MARSHALL {
  14.     local($auth, $xdrs) = @_;
  15.     eval "((*(($auth)-> &ah_ops-> &ah_marshal))($auth, $xdrs))";
  16. }
  17. sub auth_marshall {
  18.     local($auth, $xdrs) = @_;
  19.     eval "((*(($auth)-> &ah_ops-> &ah_marshal))($auth, $xdrs))";
  20. }
  21. sub AUTH_VALIDATE {
  22.     local($auth, $verfp) = @_;
  23.     eval "((*(($auth)-> &ah_ops-> &ah_validate))(($auth), $verfp))";
  24. }
  25. sub auth_validate {
  26.     local($auth, $verfp) = @_;
  27.     eval "((*(($auth)-> &ah_ops-> &ah_validate))(($auth), $verfp))";
  28. }
  29. sub AUTH_REFRESH {
  30.     local($auth) = @_;
  31.     eval "((*(($auth)-> &ah_ops-> &ah_refresh))($auth))";
  32. }
  33. sub auth_refresh {
  34.     local($auth) = @_;
  35.     eval "((*(($auth)-> &ah_ops-> &ah_refresh))($auth))";
  36. }
  37. sub AUTH_DESTROY {
  38.     local($auth) = @_;
  39.     eval "((*(($auth)-> &ah_ops-> &ah_destroy))($auth))";
  40. }
  41. sub auth_destroy {
  42.     local($auth) = @_;
  43.     eval "((*(($auth)-> &ah_ops-> &ah_destroy))($auth))";
  44. }
  45. sub AUTH_NONE {0;}
  46. sub AUTH_NULL {0;}
  47. sub AUTH_UNIX {1;}
  48. sub AUTH_SHORT {2;}
  49. sub AUTH_DES {3;}
  50. 1;
  51.